home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Q-R / ResGenie™ 1.0 / ResGenie™ / ResGenie™.rsrc / TEXT_190_makescalerez.txt < prev    next >
Encoding:
Text File  |  1993-08-02  |  942 b   |  26 lines
  1. global ColorAuthoringPath
  2.   set cursor to "cross"
  3.   put "Drag to place your new picture frame"
  4.   wait until the mouseclick
  5.   put the mouseloc into start
  6.   put rubberbandRect(item 1 of start, item 2 of start) into where
  7.   set cursor to watch
  8.   put ResText("TEXT","scalerez", ColorAuthoringPath) into test
  9.   set lockscreen to true
  10.   domenu "New Button"
  11.   
  12.   if there is a bg btn "New Button" then
  13.     put "bg btn id" && the id of bg btn "New Button" into unique
  14.     do set the name of unique to "Scaling Rez"
  15.   end if
  16.   
  17.   if there is a  btn "New Button" then
  18.     put "btn id" && the id of btn "New Button" into unique
  19.     do set the name of unique to "Scaling Rez"
  20.   end if
  21.   do set the rect of unique to where
  22.   do set the script of unique to test
  23.   do set the style of unique to rectangle
  24.   put "Here is your new Scaling-Resource picture frame"
  25.   if the visible of window Tool is false then show Tool window at 100, 10
  26.   choose "Browse" tool